VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "BOMProd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private p_Product As Product
Private p_BOMNodes As Collection

Private Sub Class_Initialize()
    Set p_BOMNodes = New Collection
End Sub

Property Get Product() As Product
    Set Product = p_Product
End Property
Property Set Product(ByRef Value As Product)
    Set p_Product = Value
End Property

Property Get BOMNodes() As Collection
    Set BOMNodes = p_BOMNodes
End Property
